// Testing the error system

//----------------------------------------------------------------------------//

function Main()

   local oError := ErrorNew()  // We keep Clipper compatibility here
                               // instead of using TError():New()

   MsgInfo( oError:ClassName() )

   oError:OsCode = 123
   MsgInfo( oError:OsCode )

   MsgInfo( Len( oError ) )

return nil

//----------------------------------------------------------------------------//
